home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / Hypersoft Version 2.cpt / Hypersoft Version 2 / Software Librarian / background_3288.txt < prev    next >
Text File  |  1987-10-06  |  6KB  |  271 lines
  1. -- background: 3288 from stack: in
  2. -- bmap block id: 4043
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into bkgnd field "time"
  9.   put the date into bkgnd field "date"
  10. end idle
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 8004
  16. -- rect: left=193 top=300 right=339 bottom=247
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: new
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   doMenu "new card"
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 2 (button)
  33. -- low flags: 00
  34. -- high flags: 8004
  35. -- rect: left=277 top=300 right=339 bottom=329
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: delete
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   doMenu "delete card"
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 3 (button)
  52. -- low flags: 00
  53. -- high flags: 2004
  54. -- rect: left=109 top=301 right=339 bottom=159
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 21060 / 21060
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Find
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   global key
  66.   ask "Enter name or word you're looking for:" with key
  67.   if it is not empty then
  68.     go to next card
  69.     find it
  70.     put it into key
  71.   end if
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: 0004
  79. -- rect: left=364 top=299 right=338 bottom=412
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 20186 / 20186
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Sort Disks
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   if the name of this stack contains "stack ideas"
  91.   then
  92.   show card field 1  -- explain why not sort here
  93. else
  94.   answer "Sort all cards of this stack according to:" with "Name" or "Number" or "Cancel"
  95.   if it is "Name"
  96.   then sort by first word of first line of field "Label"
  97. else if it is "diskNumber"
  98. then sort by field "diskNumber"
  99. end if
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 5 (button)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=368 top=264 right=289 bottom=395
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 1014 / 1014
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Prev
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   visual effect wipe right
  119.   go to previous card
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 6 (button)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=396 top=264 right=289 bottom=423
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 1013 / 1013
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Next
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   visual effect wipe left
  139.   go to next card
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 7 (button)
  145. -- low flags: 00
  146. -- high flags: 0000
  147. -- rect: left=460 top=263 right=291 bottom=497
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 1012 / 1012
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Return
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   visual effect iris close
  159.   pop card
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 8 (button)
  165. -- low flags: 00
  166. -- high flags: 0004
  167. -- rect: left=444 top=300 right=338 bottom=496
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 32670 / 32670
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: 
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   show all cards
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 10 (field)
  184. -- low flags: 00
  185. -- high flags: 6004
  186. -- rect: left=188 top=59 right=77 bottom=227
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 4
  191. -- text size: 9
  192. -- style flags: 0
  193. -- line height: 12
  194. -- part name: diskNumber
  195.  
  196.  
  197. -- part 9 (field)
  198. -- low flags: 00
  199. -- high flags: 2004
  200. -- rect: left=61 top=111 right=180 bottom=230
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Label
  209.  
  210.  
  211. -- part 11 (field)
  212. -- low flags: 00
  213. -- high flags: 2007
  214. -- rect: left=305 top=87 right=261 bottom=478
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Filenames
  223.  
  224.  
  225. -- part 12 (button)
  226. -- low flags: 00
  227. -- high flags: 0004
  228. -- rect: left=22 top=300 right=338 bottom=76
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 21700 / 21700
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Home
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   visual effect iris open
  240.   go Home
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 13 (field)
  246. -- low flags: 00
  247. -- high flags: 0004
  248. -- rect: left=289 top=29 right=49 bottom=354
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 3
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: time
  257.  
  258.  
  259. -- part 14 (field)
  260. -- low flags: 00
  261. -- high flags: 0004
  262. -- rect: left=426 top=29 right=49 bottom=494
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 3
  267. -- text size: 10
  268. -- style flags: 16384
  269. -- line height: 13
  270. -- part name: date
  271.